home *** CD-ROM | disk | FTP | other *** search
/ IRIX 6.2 Development Libraries / SGI IRIX 6.2 Development Libraries.iso / dist / complib.idb / usr / share / catman / p_man / cat3 / complib / slartg.z / slartg
Text File  |  1996-03-14  |  2KB  |  67 lines
  1.  
  2.  
  3.  
  4. SSSSLLLLAAAARRRRTTTTGGGG((((3333FFFF))))                                                          SSSSLLLLAAAARRRRTTTTGGGG((((3333FFFF))))
  5.  
  6.  
  7.  
  8. NNNNAAAAMMMMEEEE
  9.      SLARTG - generate a plane rotation so that   [ CS SN ]
  10.  
  11. SSSSYYYYNNNNOOOOPPPPSSSSIIIISSSS
  12.      SUBROUTINE SLARTG( F, G, CS, SN, R )
  13.  
  14.          REAL           CS, F, G, R, SN
  15.  
  16. PPPPUUUURRRRPPPPOOOOSSSSEEEE
  17.      SLARTG generate a plane rotation so that
  18.         [ -SN  CS  ]     [ G ]     [ 0 ]
  19.  
  20.      This is a slower, more accurate version of the BLAS1 routine SROTG, with
  21.      the following other differences:
  22.         F and G are unchanged on return.
  23.         If G=0, then CS=1 and SN=0.
  24.         If F=0 and (G .ne. 0), then CS=0 and SN=1 without doing any
  25.            floating point operations (saves work in SBDSQR when
  26.            there are zeros on the diagonal).
  27.  
  28.      If F exceeds G in magnitude, CS will be positive.
  29.  
  30.  
  31. AAAARRRRGGGGUUUUMMMMEEEENNNNTTTTSSSS
  32.      F       (input) REAL
  33.              The first component of vector to be rotated.
  34.  
  35.      G       (input) REAL
  36.              The second component of vector to be rotated.
  37.  
  38.      CS      (output) REAL
  39.              The cosine of the rotation.
  40.  
  41.      SN      (output) REAL
  42.              The sine of the rotation.
  43.  
  44.      R       (output) REAL
  45.              The nonzero component of the rotated vector.
  46.  
  47.  
  48.  
  49.  
  50.  
  51.  
  52.  
  53.  
  54.  
  55.  
  56.  
  57.  
  58.  
  59.  
  60.  
  61.  
  62.  
  63.                                                                         PPPPaaaaggggeeee 1111
  64.  
  65.  
  66.  
  67.